From daddbee78dbd63d91bc5883e83aa9844cd19b3d3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 27 Nov 2006 14:32:51 +0000 Subject: [PATCH] Fix comment and obsolescence string for old functions. Use `dolist' instead of `while'. --- lisp/time-stamp.el | 25 +++++++++---------------- 1 file changed, 9 insertions(+), 16 deletions(-) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index daa713e069b..f29806e3013 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -710,23 +710,16 @@ around literals." ;;; Some functions used in time-stamp-format ;;; These functions have been obsolete since 1995 -;;; and will be removed in Emacs 22. +;;; and will be removed in a future Emacs release. ;;; Meanwhile, discourage other packages from using them. -(let ((obsolete-functions '(time-stamp-month-dd-yyyy - time-stamp-dd/mm/yyyy - time-stamp-mon-dd-yyyy - time-stamp-dd-mon-yy - time-stamp-yy/mm/dd - time-stamp-yyyy/mm/dd - time-stamp-yyyy-mm-dd - time-stamp-yymmdd - time-stamp-hh:mm:ss - time-stamp-hhmm))) - (while obsolete-functions - (make-obsolete (car obsolete-functions) - "use time-stamp-string or format-time-string instead." - "20.1") - (setq obsolete-functions (cdr obsolete-functions)))) +(dolist (function '(time-stamp-month-dd-yyyy time-stamp-dd/mm/yyyy + time-stamp-mon-dd-yyyy time-stamp-dd-mon-yy + time-stamp-yy/mm/dd time-stamp-yyyy/mm/dd + time-stamp-yyyy-mm-dd time-stamp-yymmdd + time-stamp-hh:mm:ss time-stamp-hhmm)) + (make-obsolete function + "use `time-stamp-string' or `format-time-string' instead." + "20.1")) ;;; pretty form, suitable for a title page -- 2.30.2